home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1999 March
/
EnigmA AMIGA RUN 35 (1999)(G.R. Edizioni)(IT)[!][issue 1999-03].iso
/
earkit
/
mail
/
thor
/
thor25_arexx.lha
/
FSE
/
Quote.fse
< prev
next >
Wrap
Text File
|
1995-09-06
|
281b
|
21 lines
/* qoute.fse - qoutes all except empty lines */
options results
qoutechar = ">"
YPOS
currline = result
XPOS
currcolumn = result
MSGLENGTH
lastline = result
do i=1 to lastline
SETPOS 1 i
GETLINE
if(result ~= " ") then INSERTINPUT qoutechar
end
SETPOS currcolumn currline